Experiment
"https://raw.githubusercontent.com/tidyverse/ggplot2/refs/heads/main/NAMESPACE" |>
read_lines() ->
ggplot2_namespace
ggplot2_namespace %>%
tibble(text = .) %>%
filter(str_detect(text, "export\\(")) %>%
filter(str_detect(text, "geom_|stat_")) %>%
mutate(exported_fun = str_remove_all(text, "export\\(|\\)")) ->
df_exported_geom_stat
fun_contents <- list()
for (i in 1:nrow(df_exported_geom_stat)){
if(df_exported_geom_stat$exported_fun[i] != "stat_manual"){
fun_contents[[i]] <- capture.output(get(df_exported_geom_stat$exported_fun[i]))
}
}
df_exported_geom_stat$fun_contents <- fun_contents
df_exported_geom_stat %>%
unnest() %>%
filter(fun_contents %>% str_detect("geom = |stat = |position =")) %>%
mutate(stat = str_extract(fun_contents, "stat = .*?,")) %>%
mutate(geom = str_extract(fun_contents, "geom = .*?,")) %>%
mutate(position = str_extract(fun_contents, "position = .*?,")) %>%
mutate(position = ifelse(position == "position = position,", NA, position)) %>%
mutate(stat = ifelse(stat == "stat = stat,", NA, stat)) %>%
mutate(geom = ifelse(geom == "geom = geom,", NA, geom)) %>%
select(-text, -fun_contents) %>%
pivot_longer(cols = stat:position) %>%
remove_missing() %>%
rename(argument = value,
type = name) %>%
mutate(argument = argument %>% str_remove(".+ = ") %>% str_remove(",")) %>%
mutate(default_or_fixed = ifelse(str_detect(argument, '"'), "default", "fixed")) %>%
mutate(object = str_remove_all(argument, '"')) %>%
mutate(object = ifelse(default_or_fixed == "default",
str_replace_all(object, "_", " ") %>%
str_to_title() %>%
str_remove_all(" ") %>%
paste0(str_to_title(type), .),
object)) %>%
mutate(expected_object = exported_fun %>%
str_replace_all("_", " ") %>%
str_to_title() %>%
str_remove_all(" ")
) %>%
mutate(fun_prefix = str_extract(exported_fun, ".*?_")) %>%
mutate(expected_type = fun_prefix %>% str_remove("_")) ->
exported_layer_fun_composition
write_csv(exported_layer_fun_composition, "ggplot2_exported_layer_fun_composition.csv")
head(exported_layer_fun_composition)
## # A tibble: 6 × 8
## exported_fun type argument default_or_fixed object expected_object fun_prefix
## <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 geom_abline stat "StatId… fixed StatI… GeomAbline geom_
## 2 geom_abline geom "GeomAb… fixed GeomA… GeomAbline geom_
## 3 geom_abline posi… "Positi… fixed Posit… GeomAbline geom_
## 4 geom_area stat "\"alig… default StatA… GeomArea geom_
## 5 geom_area posi… "\"stac… default Posit… GeomArea geom_
## 6 geom_area geom "GeomAr… fixed GeomA… GeomArea geom_
## # ℹ 1 more variable: expected_type <chr>
# expectations aren't met
exported_layer_fun_composition %>%
filter(type == expected_type & object != expected_object) %>%
select(exported_fun, object, expected_object)
## # A tibble: 11 × 3
## exported_fun object expected_object
## <chr> <chr> <chr>
## 1 geom_bin2d GeomTile GeomBin2d
## 2 geom_bin_2d GeomTile GeomBin2d
## 3 geom_count GeomPoint GeomCount
## 4 geom_freqpoly GeomPath GeomFreqpoly
## 5 geom_histogram GeomBar GeomHistogram
## 6 geom_jitter GeomPoint GeomJitter
## 7 geom_qq GeomPoint GeomQq
## 8 geom_qq_line GeomPath GeomQqLine
## 9 geom_sf_label GeomLabel GeomSfLabel
## 10 geom_sf_text GeomText GeomSfText
## 11 stat_bin_hex StatBinhex StatBinHex
exported_layer_fun_composition %>%
ggplot() +
aes(id = object) +
facet_wrap(~type) +
ggcirclepack::geom_circlepack() +
ggcirclepack::geom_circlepack_text() +
aes(size = after_stat(1/nchar(id)*area)) +
coord_equal() +
labs(title = "ggplot2 geom-stat-position layer composition")
last_plot() +
aes(fill = default_or_fixed)
last_plot() +
facet_grid(fun_prefix~type)
exported_layer_fun_composition %>%
select(exported_fun, object) %>%
ggedgelist:::ggedgelist_quick(
layout = "kk", include_names = T)
exported_layer_fun_composition %>%
filter(type != "position") %>%
select(exported_fun, object) %>%
ggedgelist:::ggedgelist_quick(
layout = "fr", include_names = T)
